(tab-to-tab-stop): Combine new indentation with previous.

diff --git a/lisp/indent.el b/lisp/indent.el
index e7f4605b682bd45cb491f0d89a5f19ac6adec9ac..17e58241fd1619f64a8d648f7f5e4dc47244463b 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -238,7 +238,10 @@ Use \\[edit-tab-stops] to edit them interactively."
     (while (and tabs (>= (current-column) (car tabs)))
       (setq tabs (cdr tabs)))
     (if tabs
-       (indent-to (car tabs))
+       (let ((opoint (point)))
+         (skip-chars-backward " \t")
+         (delete-region (point) opoint)
+         (indent-to (car tabs)))
       (insert ?\ ))))
 
 (defun move-to-tab-stop ()